10 ;*********************************
11 ;*                               *
12 ;* GIGA-ASS GRAFIK-ROUTINEN DEMO *
13 ;* ----------------------------- *
14 ;*                               *
15 ;* ACHTUNG: VOR ASSEMBLIEREN     *
16 ;* MUESSEN ZWEI VORAUSSETZUNGEN  *
17 ;* ERFUELLT SEIN:                *
18 ;*                               *
19 ;* 1. DER OBJEKTCODE DER GRAFIK- *
20 ;* ROUTINEN MUSS IN DEN SPEICHER *
21 ;* GELADEN WORDEN SEIN.          *
22 ;*                               *
23 ;* 2. DAS MAKRO MERGE-FILE MUSS  *
24 ;* MIT DEM "M" BEFEHL AN DIESEN  *
25 ;* QUELLTEXT ANGEHAENGT WORDEN   *
26 ;* SEIN.                         *
27 ;*                               *
28 ;*********************************
100 +$7000
110 USRTITEL
120 TITEL DESIGNCLOSE3
130  CLEAR
140  LINESCLOSELNT1
150  LINESCLOSELNT2
160  LINESCLOSELNT3
170  COLORCLOSE$F0
180  BORDERCLOSE0
190  PAGECLOSE3
200  FILLCLOSE109,140
210  FILLCLOSE120,198
220  FILLCLOSE148,181
230  FILLCLOSE249,116
240  FILLCLOSE200,131
250  FILLCLOSE240,141
260  FILLCLOSE250,155
270  FILLCLOSE265,140
280  FILLCLOSE275,151
290  FILLCLOSE215,170
300  FILLCLOSE177,179
310  LINESCCLOSELNT4
320  LINESCCLOSELNT5
330  TEXTCLOSET1,3,8,2,3,0,$FF
340  TEXTCLOSET2,7,8,0,0,1,1
350  FRAMECLOSE36,12,288,75
360  FRAMECLOSE41,15,283,72
370  FILLCLOSE38,42
380  FILLCLOSE285,42
390  TEXTCLOSET3,11,5,0,1,1,$FF
400  TEXTCLOSET4,16,6,0,0,0,3
410  CIRCLECLOSE52,131,7
420  TEXTCLOSET5,14,5,0,0,0,3
430  TEXTCLOSET6,24,29,0,0,0,3
440  SPACEWAIT
450  OFF
460  (null)
470 T1 NOT"GIGA-ASS"
480 T2 NOT"[199]RAFIK-[210]OUTINEN FUER [195]64"
490 T3 NOT"PROGRAMMIERT VON [212]HOMAS [196]ACHSEL"
500 T4 NOT"C 1988"
510 T5 NOT"MARKT & TECHNIK"
520 T6 NOT"<SPACE>"
530 LNT1 FN70,0,140,250,0,115
540  FN5,1,123,35,1,160
550  FN120,0,199,90,0,155
560  FN70,0,140,70,0,165
570  FN120,0,214,35,1,172
580  FN35,1,160,0,$FF,0
590 LNT2 FN152,0,181,220,0,167
600  FN217,0,163,247,0,157
610  FN225,0,135,110,0,153
620  FN131,0,181,150,0,178
630  FN152,0,181,0,$FF,0
640 LNT3 FN240,0,132,253,0,130
650  FN15,1,152,3,1,154
660  FN240,0,132,0,$FF,0
670 LNT4 FN94,0,153,4,1,126
680  FN31,1,159,122,0,196
690  FN94,0,153,0,$FF,0
700 LNT5 FN78,0,141,248,0,117
710  FN253,0,120,85,0,146
720  FN78,0,141,0,$FF,0